home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / biz / patch / Stud215c.lha / Studio_Update_V2.15c / Install-StudioUpdate < prev    next >
Text File  |  1998-04-28  |  33KB  |  1,242 lines
  1. ; $VER: Studio Update V2.15
  2. ; Copyright (C)1997 Wolf Faust
  3.  
  4. (complete 0)
  5. (delopts "oknodelete" "force" "askuser")
  6.  
  7. (set #waitmsg
  8. (cat "\n\n\n\nWorking. Please wait..."
  9. ))
  10. (set #bad-kick
  11. (cat    "\nYour system software is very old. "
  12.     "You must use at least Kickstart 2.04 for all Studio programs. "
  13. ))
  14. (set #bad-version
  15. (cat    "This update will only update Studio V2.15 and older. "
  16.     "Your Studio disks are version %ld.%ld. Running this update doesn't make sense. "
  17. ))
  18. (set #bad-version2
  19. (cat    "This update requires Studio V2.14. "
  20.     "Your installed Studio program has version %ld.%ld. "
  21. ))
  22. (set #bad-version3
  23. (cat    "Your printing program has version %ld.%ld. "
  24.     "Updating your printing program doesn't make sense. "
  25.     "I will continue updating/installing other parts. "
  26. ))
  27. (set #w-studio
  28. (cat "Select the action(s) to perform."
  29. ))
  30. (set #w-studio-help
  31. (cat "This disk comes with new and additional software for some printers.\n"
  32.     "You can update your current used software.\n"
  33.     "Or you can update the software and add the additional printer software.\n\n"
  34.     @askchoice-help
  35. ))
  36. (set #w-studio-choices0
  37. (cat "Update Studio to V2.15"
  38. ))
  39. (set #w-studio-choices1
  40. (cat "and install Stylus Color 400 driver"
  41. ))
  42. (set #w-studio-choices2
  43. (cat "and install Stylus Color 600 driver"
  44. ))
  45. (set #w-studio-choices3
  46. (cat "and install Stylus Color 800 driver"
  47. ))
  48. (set #w-studio-choices4
  49. (cat "and install Stylus Color 1520 driver"
  50. ))
  51. (set #w-studio-choices5
  52. (cat "and install Stylus Color 3000 driver"
  53. ))
  54. (set #w-studio-choices6
  55. (cat "and install Stylus Photo (alpha) driver"
  56. ))
  57. (set #w-studio-choices7
  58. (cat "and install Stylus Color profiles"
  59. ))
  60. (set #w-studio-choices8
  61. (cat "and install Stylus Color 500/II/Pro profiles"
  62. ))
  63. (set #abortunpack
  64. (cat "\nError occured while running the installation decompression program. "
  65.     "The error occured during decompressing of the file:\n\n\"%s\"\n\n"
  66. ))
  67. (set #foundstudio
  68. (cat "\nI found your Studio printing program. Can I update the program in the drawer:\n\n%s\n\n"
  69. ))
  70. (set #foundstudiohelp
  71. (cat "When selecting yes, the Studio program will be updated in the location found.\n\n"
  72.     "When selecting no, you will be asked for a Studio filename you want to update\n\n"
  73. ))
  74. (set #ask-studiomod
  75. (cat "\nSelect the disk or drawer the 'Studio' application program is placed in. "
  76. ))
  77. (set #ask-studiomod-help
  78. (cat "You should now select the drawer the 'Studio' application program is placed in. "
  79.     "Usually the program is placed in the Studio drawer and thus the Studio drawer "
  80.     "should be selected.\n\n"
  81.     @askdir-help
  82. ))
  83. (set #nostudiopro
  84. (cat "\nSorry, I can't find the \"Studio\" program. I tried to access %s. "
  85.     "Please check the drawer and program name try installing again. "
  86. ))
  87. (set #ask-prefs
  88. (cat "\nIn which disk or drawer are the Studio printer preferences program(s) installed?"
  89. ))
  90. (set #ask-prefs-help
  91. (cat "\nThis section lets you choose in which drawer or on which disk the "
  92.     "Studio printer driver preferences programs (EpsonP2Pref, SetupStylus...) are installed. "
  93.     "These are normally placed in the \"SYS:Prefs\" directory of your system "
  94.     "disk.\n\n"
  95.     @askdir-help
  96. ))
  97. (set #delenv
  98. (cat "Can I overwrite your old Workbench driver settings? I want to overwrite your settings in "
  99.     "order to setup the driver for your printer.\n\n"
  100.     "Note: you can keep your old driver settings if you like. Use the Preset "
  101.     "menu of the preferences program to change the settings to the default "
  102.     "settings anytime later."
  103. ))
  104. (set #delenvhelp
  105. (cat "The installation program wants to setup the default settings for your printer. "
  106.     "In order to do so, your old settings have to be deleted. You can skip overwriting the driver "
  107.     "settings and setup the driver later for your printer using the Preset menu "
  108.     "of the drivers prefences program."
  109. ))
  110. (set #sdelenv
  111. (cat "Can I delete the old settings of your Studio printing program? I want to overwrite your settings in "
  112.     "order to setup Studio for your printer.\n\n"
  113.     "Note: you can keep your old Studio printing program settings if you like. Use the \"Reset To Default\" "
  114.     "menu item of the printing program to change the settings anytime later if required. "
  115. ))
  116. (set #sdelenvhelp
  117. (cat "The installation program wants to setup the default settings for your printer. "
  118.     "In order to do so, your old settings have to be deleted. You can skip overwriting the Studio "
  119.     "settings and setup the printing program later for your printer using the \"Reset To Default\" menu item "
  120.     "of the Studio printing program."
  121. ))
  122. (set #setupmsg
  123. (cat "\nA new SetupStylus program was installed for you in:\n\n%s\n "
  124. ))
  125. (set #installed
  126. (cat "\n\nA new driver named \"%s\" has been installed for your printer. "
  127.     "The driver is controlled by the installed \"%s\" preferences "
  128.     "program. Please select the driver in the Printer "
  129.     "preferences of your Workbench. I will try to start the preferences "
  130.     "program for you now.\n\n"
  131. ))
  132. (set #yesupdate
  133. (cat "Yes, update"
  134. ))
  135. (set #nodrawer
  136. (cat "No, select new drawer"
  137. ))
  138. (set #nochange
  139. (cat "No, don't change"
  140. ))
  141. (set #madpgsupdate3
  142. (cat    "\n\nA PageStream 3.1/3.2/3.3 (or newer) Studio driver was installed."
  143. ))
  144. (set #madimfxupdate
  145. (cat    "\n\nAn ImageFX Studio printer driver was installed."
  146. ))
  147. (set #madcanonupdate
  148. (cat    "\n\nYour installed Canon BJC Software was updated."
  149. ))
  150. (set #madstudioupdate
  151. (cat    "\n\nYour Studio printing program was updated.\n\nI will now continue updating..."
  152. ))
  153. (set #madepsonupdate
  154. (cat    "\n\nYour installed EpsonP2 Workbench driver was updated."
  155. ))
  156. (set #madepsonsetupupdate
  157. (cat    "\n\nYour installed SetupStylus program was updated."
  158. ))
  159. (set #madonlineupdate
  160. (cat    "\n\nCongratulations!\nYou have the online version of the Studio update. "
  161.     "Additional color profiles for the Studio printing program have been installed.\n"
  162. ))
  163. ;-------
  164. (set #w-appdriv
  165. (cat "Do you want to install/update a Studio driver for:"
  166. ))
  167. (set #w-appdriv-help
  168. (cat "\nSome Amiga applications do allow the use of custom printer drivers."
  169.     "These drivers usualy don't use the systems printer device for printing."
  170.     "You can now install such non-system drivers for these applications. "
  171.     "The drivers allow direct printing using the Studio printing program.\n\n"
  172.     @askoptions-help
  173. ))
  174. (set #w-appdriv-choices0
  175. (cat "ImageFX 2.x"
  176. ))
  177. (set #w-appdriv-choices1
  178. (cat "PageStream 3.1"
  179. ))
  180. (set #w-appdriv-choices2
  181. (cat "PageStream 3.2 beta 6,7,8,9,10 and 3.2"
  182. ))
  183. (set #w-appdriv-choices3
  184. (cat "PageStream 3.3"
  185. ))
  186. ;-------
  187. (set #nofx
  188. (cat    "Sorry, I can't locate the \"ImageFX2:modules/printer\" drawer containing the ImageFX 2.x"
  189.     "printer modules. Please check your ImageFX installation and try again. I will now continue installing Studio"
  190. ))
  191. ;-------
  192. (set #namedocs
  193. (cat "Readme"
  194. ))
  195. ;-------
  196. (set #nopgs
  197. (cat    "Sorry, I can't locate the \"Pagestream3:SoftLogik/Printers\" drawer containing the PageStream "
  198.     "printer drivers. So I can't install the PageStream driver. Please check your "
  199.     "PageStream installation and try again"
  200. ))
  201. ;-------
  202. (set #badappversion
  203. (cat    "I did not install the wanted application driver for "
  204.     "%s. A newer driver V%ld.%ld is already installed. "
  205.     "I will now continue with the installation.\n"
  206. ))
  207.  
  208.  
  209.  
  210. ;*** German
  211. (if (= @language "deutsch")
  212. (
  213.  
  214.     (set #waitmsg
  215.     (cat "\n\n\n\nIch arbeite! Bitte warten..."
  216.     ))
  217.     (set #bad-kick
  218.     (cat    "\nIhre System-Software ist sehr alt. "
  219.         "Sie brauchen mindestens Kickstart 2.04 für alle Studio-Programme."
  220.     ))
  221.     (set #bad-version
  222.     (cat    "Dieses Update benötigt Studio Version 2.15 oder älter. "
  223.         "Ihre Studio Originaldisketten haben Version %ld.%ld. Es hat daher "
  224.         "keinen Sinn, ein Update durchzuführen. "
  225.     ))
  226.     (set #bad-version2
  227.     (cat    "Dieses Update funktioniert nur mit Studio V2.14. "
  228.         "Ihr installiertes Programm hat Version %ld.%ld. "
  229.     ))
  230.     (set #bad-version3
  231.     (cat    "Ihr installiertes Programm Studio Druckprogramm hat schon Version %ld.%ld. "
  232.         "Es wird daher nicht erneuert und die Installation fortgesetzt. "
  233.     ))
  234.     (set #w-studio
  235.     (cat "Welche Studio-Software wollen Sie installieren?"
  236.     ))
  237.     (set #w-studio-help
  238.     (cat "\nDieses Studio Update enthält neben einem generellen Update der vorhandenen "
  239.         "Software auch zusätzliche neue Treiber Software. Bitte wählen Sie, ob "
  240.         "Sie einfach nur vorhandenes Updaten wollen, oder ob Sie zusätzlich noch "
  241.         "weitere Software installieren wollen.\n\n"
  242.         @askoptions-help
  243.     ))
  244.     (set #w-studio-choices0
  245.     (cat "Installierte Studio Software erneuern"
  246.     ))
  247.     (set #w-studio-choices1
  248.     (cat "und Stylus Color 400 Software installieren"
  249.     ))
  250.     (set #w-studio-choices2
  251.     (cat "und Stylus Color 600 Software installieren"
  252.     ))
  253.     (set #w-studio-choices3
  254.     (cat "und Stylus Color 800 Software installieren"
  255.     ))
  256.     (set #w-studio-choices4
  257.     (cat "und Stylus Color 1520 Software installieren"
  258.     ))
  259.     (set #w-studio-choices5
  260.     (cat "und Stylus Color 3000 Software installieren"
  261.     ))
  262.     (set #w-studio-choices6
  263.     (cat "und Stylus Photo (alpha) Software installieren"
  264.     ))
  265.     (set #w-studio-choices7
  266.     (cat "und Stylus Color Profiles installieren"
  267.     ))
  268.     (set #w-studio-choices8
  269.     (cat "und Stylus Color. 500/II/Pro Profiles inst."
  270.     ))
  271.     (set #abortunpack
  272.     (cat "\nEin Fehler trat beim Entpacken/Schreiben einer Datei auf!\n"
  273.         "Das zu entpackende Archiv lautete:\n\n\"%s\"\n\n"
  274.     ))
  275.     (set #foundstudio
  276.     (cat "\nIch habe Ihr installiertes Studio Druckprogramm gefunden. Kann ich das Studio Programm in der folgenden Schublade updaten:\n\n%s\n\n"
  277.     ))
  278.     (set #foundstudiohelp
  279.     (cat "Wählen Sie ja, dann wird das Studio Programm in der angegebenen Schublade erneuert.\n\n"
  280.         "Wählen Sie Nein, erscheint ein Dateiauswahlfenster und Sie können eine "
  281.         "andere Schublade mit dem Studio Programm angeben.\n\n"
  282.     ))
  283.     (set #ask-studiomod
  284.     (cat "\nBitte wählen Sie die Schublade, in dem sich das 'Studio'-Programm befindet."
  285.     ))
  286.     (set #ask-studiomod-help
  287.     (cat @askdir-help
  288.     ))
  289.     (set #nostudiopro
  290.     (cat "Ich kann das \"Studio\" Programm nicht unter\n\n'%s'\n\nfinden. "
  291.         "Bitte prüfen Sie die angegebenen Dateinamen und versuchen Sie die Installation erneut."
  292.     ))
  293.     (set #ask-prefs
  294.     (cat "\nIn welcher Schublade sind/wurden die Studio Treiber-Voreinsteller installiert?"
  295.     ))
  296.     (set #ask-prefs-help
  297.     (cat "\nNormal installiert Studio die Voreinsteller EpsonP2Pref, CanonBJECPref usw. "
  298.         "in die SYS:Prefs Schublade. Sollten Sie diese Programme woanders installiert haben, "
  299.         "geben Sie bitte die entsprechende Schublade an, damit die Programme upgedated werden können.\n\n"
  300.         @askdir-help
  301.     ))
  302.     (set #delenv
  303.     (cat "Kann ich Ihre alten Treibereinstellungen löschen, damit ich den Treiber "
  304.         "für Ihren Drucker neu konfigurieren kann?\n\n"
  305.         "Sie können Ihre Einstellungen mit 'Nein' aber auch behalten und jederzeit "
  306.         "später mit dem Preset Menü von EpsonP2Pref den Treiber neu einstellen."
  307.     ))
  308.     (set #delenvhelp
  309.     (cat "Das Installationsprogramm muß Ihre alten Treibereinstellungen löschen, "
  310.         "um die neuen Standardeinstellungen für Ihren Drucker zu aktivieren. "
  311.         "Sie können darauf aber auch verzichten, und später das Preset-Menü "
  312.         "von EpsonP2Pref zum Einstellen benutzen."
  313.     ))
  314.     (set #sdelenv
  315.     (cat "Kann ich Ihre Einstellungen des Studio Druckprogramms löschen, damit ich das Programm "
  316.         "für Ihren Drucker neu konfigurieren kann?\n\n"
  317.         "Sie können Ihre Einstellungen mit 'Nein' aber auch behalten und jederzeit "
  318.         "später mit dem 'Reset To Default' Menüpunkt die Einstellungen vornehmen."
  319.     ))
  320.     (set #sdelenvhelp
  321.     (cat "Das Installationsprogramm muß Ihre alten Studio Einstellungen löschen, "
  322.         "um die neuen Standardeinstellungen für Ihren Drucker zu aktivieren. "
  323.         "Sie können darauf aber auch verzichten, und später das Menü "
  324.         "von Studio zum Einstellen benutzen."
  325.     ))
  326.     (set #setupmsg
  327.     (cat "\nEin neues SetupStylus Programm wurde für Sie installiert in der Schublade:\n\n%s\n "
  328.     ))
  329.     (set #installed
  330.     (cat "\n\nEin neuer Workbench Treiber namens \"%s\" wurde für den Epson Drucker installiert. "
  331.         "Zusätzlich wurde das Voreinsteller-Programm \"%s\"  installiert.\n"
  332.         "Ich versuche jetzt, den Printer Voreinsteller für Sie zu starten, damit "
  333.         "Sie den Druckertreiber für Ihr System einstellen."
  334.     ))
  335.     (set #yesupdate
  336.     (cat "Ja, updaten"
  337.     ))
  338.     (set #nodrawer
  339.     (cat "Nein, andere Schublade"
  340.     ))
  341.     (set #nochange
  342.     (cat "Nein, nicht ändern"
  343.     ))
  344.     (set #madpgsupdate3
  345.     (cat    "\n\nEin PageStream 3.1/3.2/3.3 (oder neuer) Studio Treiber wurde installiert."
  346.     ))
  347.     (set #madimfxupdate
  348.     (cat    "\n\nEin ImageFX Studio Druckertreiber wurde installiert."
  349.     ))
  350.     (set #madcanonupdate
  351.     (cat    "\n\nIhre Canon BJC Druckersoftware wurde erneuert."
  352.     ))
  353.     (set #madstudioupdate
  354.     (cat    "\n\nDas Studio Druckprogramm wurde erneuert."
  355.     ))
  356.     (set #madepsonupdate
  357.     (cat    "\n\nDer Workbench EpsonP2 Treiber wurde erneuert."
  358.     ))
  359.     (set #madepsonsetupupdate
  360.     (cat    "\n\nDas SetupStylus Programm wurde erneuert."
  361.     ))
  362.     (set #madonlineupdate
  363.     (cat    "\n\nGratuliere!\nSie haben die Online Version des Updates. Es wurden zusätzliche Profiles für Ihr Druckprogramm installiert."
  364.     ))
  365.     ;-------
  366.     (set #w-appdriv
  367.     (cat "Wollen Sie Treiber für folgende Programme erneuern/installieren:"
  368.     ))
  369.     (set #w-appdriv-help
  370.     (cat "\nEinige Amiga Anwendungsprogramme bieten eigene Druckertreiber. "
  371.         "Sie können jetzt für einige Programme spezielle Treiber für "
  372.         "diese Programme installieren.\n\n"
  373.         @askoptions-help
  374.     ))
  375.     (set #w-appdriv-choices0
  376.     (cat "ImageFX 2.x"
  377.     ))
  378.     (set #w-appdriv-choices1
  379.     (cat "PageStream 3.1"
  380.     ))
  381.     (set #w-appdriv-choices2
  382.     (cat "PageStream 3.2 beta 6,7,8,9 und 3.2."
  383.     ))
  384.     (set #w-appdriv-choices3
  385.     (cat "PageStream 3.3."
  386.     ))
  387.     ;-------
  388.     (set #nofx
  389.     (cat    "Leider kann ich Ihre \"ImageFX2:modules/printer\" Schublade mit den ImageFX "
  390.         "Druckertreibern nicht finden. Ich kann daher auch keinen neuen Treiber installieren. "
  391.         "Bitte prüfen Sie Ihre ImageFX V2.x Installation. Ich fahre jetzt mit der Installation fort."
  392.     ))
  393.     ;-------
  394.     (set #namedocs
  395.     (cat "Liesmich"
  396.     ))
  397.     ;-------
  398.     (set #nopgs
  399.     (cat    "Leider kann ich Ihre \"Pagestream3:SoftLogik/Printers\" Schublade mit den PageStream "
  400.         "Druckertreibern nicht finden. Ich kann daher auch keinen neuen Treiber installieren. "
  401.         "Bitte prüfen Sie Ihre PageStream Installation."
  402.     ))
  403.     ;-------
  404.     (set #badappversion
  405.     (cat    "Der gewünschte Studio Treiber für das Programm '%s' wurde nicht installiert, "
  406.         "da bereits ein neuerer Treiber mit der Version %ld.%ld installiert ist.\n\n"
  407.         "Es wird jetzt mit der Installation fortgefahren...\n"
  408.     ))
  409. ))
  410.  
  411.  
  412.  
  413. (procedure Meter
  414. (
  415.     (set accum    (+ accum addm))
  416.     (complete (/ (* accum 100) total))
  417. ))
  418.  
  419. (complete 0)
  420. ;(message #welcome-pirate)
  421.  
  422. (set total    0)
  423. (set accum    0)
  424. (set addm    0)
  425. (set firstdisk "")
  426. (if (< (/ (getversion) 65536) 37)
  427.     (abort #bad-kick)
  428. )
  429. (complete 1)
  430.  
  431. (if (= (exists "Profiles/StylusColor500.pkd") 1) ; Online version?
  432. (
  433.     (set studio (askchoice (prompt #w-studio)
  434.         (help #w-studio-help)
  435.         (choices  #w-studio-choices0 #w-studio-choices1 #w-studio-choices2 #w-studio-choices3 #w-studio-choices4 #w-studio-choices5  #w-studio-choices6  #w-studio-choices7 #w-studio-choices8)
  436.         (default 0)
  437.     ))
  438. )
  439. (
  440.     (set studio (askchoice (prompt #w-studio)
  441.         (help #w-studio-help)
  442.         (choices  #w-studio-choices0 #w-studio-choices1 #w-studio-choices2 #w-studio-choices3 #w-studio-choices4 #w-studio-choices5 #w-studio-choices6)
  443.         (default 0)
  444.     ))
  445. ))
  446.  
  447. (set prefdisk ("SYS:Prefs"))
  448. (if (exists "sys:preferences")
  449. (
  450.     (set prefdisk ("SYS:Preferences"))
  451. ))
  452. (if (exists "SYS:Prefs")
  453. (
  454.     (set prefdisk ("SYS:Prefs"))
  455. ))
  456. (set prefdisk (askdir (prompt #ask-prefs)
  457.     (help #ask-prefs-help)
  458.     (default prefdisk))
  459. )
  460.  
  461.  
  462.  
  463. (working #waitmsg)
  464. (set total 70)
  465. (if (> studio 0)
  466. (
  467.     (set total 100)
  468. ))
  469. (set @default-dest "")
  470. (set verorg 2)
  471. (set revorg 0)
  472. (if (= (exists "StudioDisk_1:VER") 1)
  473. (
  474.     (set vernum (getversion "StudioDisk_1:VER"))
  475.     (set verorg (/ vernum 65536))
  476.     (set revorg (- vernum (* verorg 65536) ) )
  477.     (if (OR (> verorg 2) (> revorg 15))
  478.     (
  479.         (abort (#bad-version verorg revorg))
  480.     ))
  481. ))
  482. (set addm 3)
  483. (Meter)
  484. (copyfiles (source "lx")
  485.     (dest "RAM:")
  486.     (nogauge)
  487. )
  488. (set addm 3)
  489. (Meter)
  490. (set exerr (run "RAM:lx n"))
  491. (if (> exerr 0)
  492. (
  493.     (abort (#abortunpack "-none-"))
  494. ))
  495.  
  496.  
  497.  
  498. (set addm 4)
  499. (Meter)
  500. (set studiopath "");
  501. (if (= (exists "ENV:STUDIOPATH") 1)
  502. (
  503.     (set studiopath (getenv "StudioPath"))
  504. ))
  505. (set addm 5)
  506. (Meter)
  507. (set found 1)
  508. (if (> (strlen studiopath) 1)
  509. (
  510.     (if (= (substr studiopath 0 1)  "\"")
  511.     (
  512.         (set studiopath (substr studiopath 1 (- (strlen studiopath) 2)))
  513.     ))
  514.     (if (= (exists studiopath) 1)
  515.     (
  516.         (if (= (fileonly studiopath) "Studio")
  517.         (
  518.             (set found 2)
  519.             (if (askbool (prompt (#foundstudio (pathonly studiopath)))
  520.                 (choices #yesupdate #nodrawer)
  521.                 (help (#foundstudiohelp ))
  522.                 (default 1))
  523.             (
  524.                 (set found 0)
  525.             ))
  526.         ))
  527.     ))
  528. ))
  529. (set addm 5)
  530. (Meter)
  531. (if (> found 0)
  532. (
  533.     (if (= found 1)
  534.     (
  535.         (set studiopath (getassign "WORK" "d"))
  536.         (if (= studiopath "")
  537.         (
  538.             (set studiopath (getassign "DH0" "d"))
  539.             (if (= studiopath "")
  540.             (
  541.                 (set studiopath (getassign "DH2" "d"))
  542.                 (if (= studiopath "")
  543.                 (
  544.                     (set studiopath "SYS:")
  545.                 ))
  546.             ))
  547.         ))
  548.         (set studiopath (tackon studiopath "Studio")) 
  549.     ))
  550.     (set studiopath  (askdir (prompt #ask-studiomod)
  551.         (help #ask-studiomod-help)
  552.         (default (pathonly (studiopath)))
  553.     ))
  554.     (set studiopath (tackon studiopath "Studio"))
  555.     (if (<> (exists studiopath) 1)
  556.     (
  557.         (abort (#nostudiopro studiopath))
  558.     ))
  559.     (textfile   (dest "Env:StudioPath")
  560.         (append (cat "\"" studiopath "\"")) )
  561.     (textfile   (dest "Envarc:StudioPath")
  562.         (append (cat "\"" studiopath "\"")) )
  563. ))
  564.  
  565. (set addm 5)
  566. (Meter)
  567. (working #waitmsg)
  568. (makeassign "STUDIOPARENT" (pathonly (studiopath)))
  569. (set ver 2)
  570. (set rev 15)
  571. (if (= (exists "STUDIOPARENT:Studio") 1)
  572. (
  573.     (set vernum (getversion "STUDIOPARENT:Studio"))
  574.     (set ver (/ vernum 65536))
  575.     (set rev (- vernum (* ver 65536) ) )
  576. ))
  577.  
  578. (set addm 5)
  579. (Meter)
  580. (if (OR (< ver 2) (< rev 14))
  581. (
  582.     (abort (#bad-version2 ver rev))
  583. ))
  584. (set addm 5)
  585. (Meter)
  586. (if (NOT (OR (> ver 2) (> rev 15)))
  587. (
  588.     (set exerr (run (cat "ram:lx x Studio/Studio.pkd \"STUDIOPARENT:\"")))
  589.     (if (> exerr 0)
  590.     (
  591.         (abort (#abortunpack "Studio/Studio.pkd"))
  592.     ))
  593.     (makeassign "STUDIOPARENT" (tackon (pathonly (studiopath)) "Studio_Output"))
  594.     (if (= (exists "STUDIOPARENT:Fargo_Primera.output") 1)
  595.     (
  596.         (set exerr (run (cat "RAM:lx x \"Output/Fargo_Primera.pkd\" \"STUDIOPARENT:\"")))
  597.         (if (> exerr 0)
  598.         (
  599.             (abort (#abortunpack "Output/Fargo_Primera.pkd"))
  600.         ))
  601.     ))
  602.     (if (= (exists "STUDIOPARENT:Epson_ESC-P2.output") 1)
  603.     (
  604.         (set exerr (run (cat "RAM:lx x \"Output/Epson_ESC-P2.pkd\" \"STUDIOPARENT:\"")))
  605.         (if (> exerr 0)
  606.         (
  607.             (abort (#abortunpack "Output/Epson_ESC-P2.pkd"))
  608.         ))
  609.     ))
  610.     (if (= (exists "STUDIOPARENT:IFF_ILBM.output") 1)
  611.     (
  612.         (if (= (exists "Output/IFF_ILBM.pkd") 1)
  613.         (
  614.             (set exerr (run (cat "RAM:lx x \"Output/IFF_ILBM.pkd\" \"STUDIOPARENT:\"")))
  615.             (if (> exerr 0)
  616.             (
  617.                 (abort (#abortunpack "Output/IFF_ILBM.pkd"))
  618.             ))
  619.         ))
  620.     ))
  621.     (if (= (exists "STUDIOPARENT:CanonBJC4000.output") 1)
  622.     (
  623.         (if (= (exists "Output/CanonBJC4000.pkd") 1)
  624.         (
  625.             (set exerr (run (cat "RAM:lx x \"Output/CanonBJC4000.pkd\" \"STUDIOPARENT:\"")))
  626.             (if (> exerr 0)
  627.             (
  628.                 (abort (#abortunpack "Output/CanonBJC4000.pkd"))
  629.             ))
  630.         ))
  631.     ))
  632.     (if (= (exists "STUDIOPARENT:CanonBJC4100.output") 1)
  633.     (
  634.         (if (= (exists "Output/CanonBJC4100.pkd") 1)
  635.         (
  636.             (set exerr (run (cat "RAM:lx x \"Output/CanonBJC4100.pkd\" \"STUDIOPARENT:\"")))
  637.             (if (> exerr 0)
  638.             (
  639.                 (abort (#abortunpack "Output/CanonBJC4100.pkd"))
  640.             ))
  641.         ))
  642.     ))
  643.     (if (= (exists "STUDIOPARENT:CanonBJC4200.output") 1)
  644.     (
  645.         (if (= (exists "Output/CanonBJC4200.pkd") 1)
  646.         (
  647.             (set exerr (run (cat "RAM:lx x \"Output/CanonBJC4200.pkd\" \"STUDIOPARENT:\"")))
  648.             (if (> exerr 0)
  649.             (
  650.                 (abort (#abortunpack "Output/CanonBJC4200.pkd"))
  651.             ))
  652.         ))
  653.     ))
  654.     (if (= (exists "STUDIOPARENT:CanonBJC4550.output") 1)
  655.     (
  656.         (if (= (exists "Output/CanonBJC4550.pkd") 1)
  657.         (
  658.             (set exerr (run (cat "RAM:lx x \"Output/CanonBJC4550.pkd\" \"STUDIOPARENT:\"")))
  659.             (if (> exerr 0)
  660.             (
  661.                 (abort (#abortunpack "Output/CanonBJC4550.pkd"))
  662.             ))
  663.         ))
  664.     ))
  665.     (if (= (exists "STUDIOPARENT:CanonBJC800.output") 1)
  666.     (
  667.         (if (= (exists "Output/CanonBJC800.pkd") 1)
  668.         (
  669.             (set exerr (run (cat "RAM:lx x \"Output/CanonBJC800.pkd\" \"STUDIOPARENT:\"")))
  670.             (if (> exerr 0)
  671.             (
  672.                 (abort (#abortunpack "Output/CanonBJC800.pkd"))
  673.             ))
  674.         ))
  675.     ))
  676.     (if (= (exists "STUDIOPARENT:CanonBJC610.output") 1)
  677.     (
  678.         (if (= (exists "Output/CanonBJC610.pkd") 1)
  679.         (
  680.             (set exerr (run (cat "RAM:lx x \"Output/CanonBJC610.pkd\" \"STUDIOPARENT:\"")))
  681.             (if (> exerr 0)
  682.             (
  683.                 (abort (#abortunpack "Output/CanonBJC610.pkd"))
  684.             ))
  685.         ))
  686.     ))
  687.     (if (= (exists "STUDIOPARENT:CanonBJC600.output") 1)
  688.     (
  689.         (if (= (exists "Output/CanonBJC600.pkd") 1)
  690.         (
  691.             (set exerr (run (cat "RAM:lx x \"Output/CanonBJC600.pkd\" \"STUDIOPARENT:\"")))
  692.             (if (> exerr 0)
  693.             (
  694.                 (abort (#abortunpack "Output/CanonBJC600.pkd"))
  695.             ))
  696.         ))
  697.     ))
  698.     (if (= (exists "STUDIOPARENT:CanonBJC600e.output") 1)
  699.     (
  700.         (if (= (exists "Output/CanonBJC600e.pkd") 1)
  701.         (
  702.             (set exerr (run (cat "RAM:lx x \"Output/CanonBJC600e.pkd\" \"STUDIOPARENT:\"")))
  703.             (if (> exerr 0)
  704.             (
  705.                 (abort (#abortunpack "Output/CanonBJC600e.pkd"))
  706.             ))
  707.         ))
  708.     ))
  709.  
  710.     (if (= (exists "STUDIOPARENT:StylusCol_800_1520_3000.output") 1)
  711.     (
  712.         (if (= (exists "Output/StylusColor800.pkd") 1)
  713.         (
  714.             (set exerr (run (cat "RAM:lx x \"Output/StylusColor800.pkd\" \"STUDIOPARENT:\"")))
  715.             (if (> exerr 0)
  716.             (
  717.                 (abort (#abortunpack "Output/StylusColor800.pkd"))
  718.             ))
  719.         ))
  720.     ))
  721.  
  722.     (message #madstudioupdate)
  723.     (working #waitmsg)
  724.  
  725.  
  726.     (if (= (exists prefdisk) 2)
  727.     (
  728.         (makeassign "STUDIOPARENT" prefdisk)
  729.         (if (= (exists "STUDIOPARENT:CanonBJECPref") 1)
  730.         (
  731.             (makeassign "STUDIODRIV" "Devs:printers")
  732.             (if (= (exists "STUDIODRIV:CanonBJ-EC") 1)
  733.             (
  734.                 (set exerr (run (cat "RAM:lx x \"Drivers/CanonBJEC.pkd\" \"STUDIODRIV:\"")))
  735.                 (if (> exerr 0)
  736.                 (
  737.                     (abort (#abortunpack "Drivers/CanonBJEC.pkd"))
  738.                 ))
  739.                 (set exerr (run (cat "RAM:lx x \"Prefs/CanonBJECPref.pkd\" \"STUDIOPARENT:\"")))
  740.                 (if (> exerr 0)
  741.                 (
  742.                     (abort (#abortunpack "Prefs/CanonBJECPref.pkd"))
  743.                 ))
  744.                 (message #madcanonupdate)
  745.                 (working #waitmsg)
  746.             ))
  747.             (makeassign "STUDIODRIV")
  748.         ))
  749.         (if (= (exists "STUDIOPARENT:EpsonP2Pref") 1)
  750.         (
  751.             (makeassign "STUDIODRIV" "Devs:printers")
  752.             (if (= (exists "STUDIODRIV:EpsonP2") 1)
  753.             (
  754.                 (set exerr (run (cat "RAM:lx x \"Drivers/EpsonP2.pkd\" \"STUDIODRIV:\"")))
  755.                 (if (> exerr 0)
  756.                 (
  757.                     (abort (#abortunpack "Drivers/EpsonP2.pkd"))
  758.                 ))
  759.                 (set exerr (run (cat "RAM:lx x \"Prefs/EpsonP2Pref.pkd\" \"STUDIOPARENT:\"")))
  760.                 (if (> exerr 0)
  761.                 (
  762.                     (abort (#abortunpack "Prefs/EpsonP2Pref.pkd"))
  763.                 ))
  764.                 (message #madepsonupdate)
  765.                 (working #waitmsg)
  766.             ))
  767.             (makeassign "STUDIODRIV")
  768.         ))
  769.         (if (= (exists "STUDIOPARENT:SetupStylus") 1)
  770.         (
  771.             (set exerr (run (cat "RAM:lx x \"Prefs/SetupStylus.pkd\" \"T:\"")))
  772.             (if (> exerr 0)
  773.             (
  774.                 (abort (#abortunpack "Prefs/SetupStylus.pkd"))
  775.             ))
  776.             (copyfiles (source (cat "T:SetupStylus"))
  777.                 (dest "STUDIOPARENT:")
  778.                 (nogauge)
  779.             )
  780.             (delete "T:SetupStylus")
  781.             (delete "T:SetupStylus.info")
  782.             (if (= studio 0)
  783.             (
  784.                 (message #madepsonsetupupdate)
  785.             ))
  786.             (working #waitmsg)
  787.         ))
  788.     ))
  789. )
  790. (
  791.     (message (#bad-version3 ver rev))
  792.     (working #waitmsg)
  793. ))
  794.  
  795. (set appdef 0)
  796. (set fxassign "")
  797. (set guessdrawer (getassign "ImageFX" "a"))
  798. (if (<> guessdrawer "")
  799. (
  800.     (set fxassign "ImageFX:Modules/Printer")
  801. ))
  802. (set guessdrawer (getassign "ImageFX2" "a"))
  803. (if (<> guessdrawer "")
  804. (
  805.     (set fxassign "ImageFX2:Modules/Printer")
  806. ))
  807. (if (<> fxassign "")
  808. (
  809.     (set appdef (BITOR appdef (shiftleft 1 0)))
  810. ))
  811. (set guessdrawer (getassign "PageStream3" "a"))
  812. (if (<> guessdrawer "")
  813. (
  814.     (set appdef (BITOR appdef (shiftleft 1 2)))
  815. ))
  816. (set addm 5)
  817. (Meter)
  818. (set appdriv (askoptions (prompt #w-appdriv)
  819.     (help #w-appdriv-help)
  820.     (choices #w-appdriv-choices0 #w-appdriv-choices1 #w-appdriv-choices2 #w-appdriv-choices3)
  821.     (default appdef)
  822. ))
  823. (working #waitmsg)
  824.  
  825.  
  826. (set addm 5)
  827. (Meter)
  828. (if (IN appdriv 0) ; ImageFX2 Driver
  829. (
  830.     (if (<> fxassign "")
  831.     (
  832.         (if (= (exists fxassign) 2)
  833.         (
  834.             (working #waitmsg)
  835.             (set ver 0)
  836.             (set rev 0)
  837.             (if (= (exists (cat fxassign "/Studio")) 1)
  838.             (
  839.                 (set vernum (getversion (cat fxassign "/Studio")))
  840.                 (set ver (/ vernum 65536))
  841.                 (set rev (- vernum (* ver 65536) ) )
  842.             ))
  843.             (if (< ver 3)
  844.             (
  845.                 (if (NOT (AND (= ver 2) (> rev 0)))
  846.                 (
  847.                     (set exerr (run (cat "RAM:lx x ImageFX2/fx.pkd " fxassign)))
  848.                     (if (> exerr 0)
  849.                     (
  850.                         (abort (#abortunpack "ImageFX2/fx.pkd"))
  851.                     ))
  852.                     (set exerr (run (cat "RAM:lx x ImageFX2/" #namedocs ".pkd " (pathonly (pathonly (fxassign))))))
  853.                     (if (> exerr 0)
  854.                     (
  855.                         (abort (#abortunpack (cat "ImageFX2/" #namedocs ".pkd")))
  856.                     ))
  857.                     (message #madimfxupdate)
  858.                 )
  859.                 (
  860.                     (message (#badappversion "ImageFX" ver rev))
  861.                 ))
  862.             )
  863.             (
  864.                 (message (#badappversion "ImageFX" ver rev))
  865.             ))
  866.         )
  867.         (
  868.             (message (#nofx))
  869.         ))
  870.     )
  871.     (
  872.         (message (#nofx))
  873.     ))
  874. ))
  875. (working #waitmsg)
  876. (set addm 5)
  877. (Meter)
  878.  
  879. (if (> appdriv 0); PageStream driver
  880. (
  881.     (set guessdrawer (getassign "PageStream3" "a"))
  882.     (if (<> guessdrawer "")
  883.     (
  884.         (if (= (exists "Pagestream3:SoftLogik/Printers") 2)
  885.         (
  886.             (set ver 0)
  887.             (set rev 0)
  888.             (if (= (exists (cat "Pagestream3:SoftLogik/Printers/Studio.printer")) 1)
  889.             (
  890.                 (set vernum (getversion (cat "Pagestream3:SoftLogik/Printers/Studio.printer")))
  891.                 (set ver (/ vernum 65536))
  892.                 (set rev (- vernum (* ver 65536) ) )
  893.             ))
  894.             (if (< ver 5)
  895.             (
  896.                 (if (NOT (AND (= ver 4) (> rev 1) ))
  897.                 (
  898.                     (set exerr (run (cat "RAM:lx x PageStream3/PGS32b6.pkd \"Pagestream3:SoftLogik/Printers\"")))
  899.                     (if (> exerr 0)
  900.                     (
  901.                         (abort (#abortunpack (cat "PageStream3/PGS32b6.pkd")))
  902.                     ))
  903.                     (set exerr (run (cat "RAM:lx x PageStream3/" #namedocs ".pkd Pagestream3:")))
  904.                     (if (> exerr 0)
  905.                     (
  906.                         (abort (#abortunpack (cat "PageStream3/" #namedocs ".pkd")))
  907.                     ))
  908.                     (message #madpgsupdate3)
  909.                 )
  910.                 (
  911.                     (message (#badappversion "PageStream 3.x" ver rev))
  912.                 ))
  913.             )
  914.             (
  915.                 (message (#badappversion "PageStream 3.x" ver rev))
  916.             ))
  917.         )
  918.         (
  919.             (abort (#nopgs))
  920.         ))
  921.     ))
  922. ))
  923. (working #waitmsg)
  924.  
  925. (set addm 5)
  926. (Meter)
  927. (set drivername "")
  928. (set prefname "")
  929. (set envname "")
  930. (set presetname "")
  931. (set setupname "")
  932. (set setuptool "")
  933. (set soutput "")
  934. (set sprofile "")
  935. (set sprofile2 "")
  936. (set studiodefault "")
  937.  
  938. (if (= studio 1)    ; SC 400
  939. (
  940.     (set drivername "EpsonP2")
  941.     (set prefname "prefs/EpsonP2Pref")
  942.     (set envname "EpsonP2Pref")
  943.     (set presetname "DriverPresets/StylusColor400")
  944.     (set setupname "Prefs/SetupStylus")
  945.     (set setuptool "StylusColor400")
  946.     (set soutput   "output/StylusColor400")
  947.     (set sprofile  "Profiles/StylusColor600")
  948.     (set sprofile2  "Profiles/StylusColor600HQ")
  949.     (set studiodefault "StylusColor400")
  950.  
  951. ))
  952. (if (= studio 2)    ; SC 600
  953. (
  954.     (set drivername "EpsonP2")
  955.     (set prefname "prefs/EpsonP2Pref")
  956.     (set envname "EpsonP2Pref")
  957.     (set presetname "DriverPresets/StylusColor600")
  958.     (set setupname "Prefs/SetupStylus")
  959.     (set setuptool "StylusColor600")
  960.     (set soutput "output/StylusColor600")
  961.     (set sprofile  "Profiles/StylusColor600")
  962.     (set sprofile2  "Profiles/StylusColor600HQ")
  963.     (set studiodefault "StylusColor600")
  964. ))
  965. (if (= studio 3)    ; SC 800
  966. (
  967.     (set drivername "EpsonP2")
  968.     (set prefname "prefs/EpsonP2Pref")
  969.     (set envname "EpsonP2Pref")
  970.     (set presetname "DriverPresets/StylusColor600")
  971.     (set setupname "Prefs/SetupStylus")
  972.     (set setuptool "StylusColor800")
  973.     (set soutput "output/StylusColor800")
  974.     (set sprofile  "Profiles/StylusColor600")
  975.     (set sprofile2  "Profiles/StylusColor600HQ")
  976.     (set studiodefault "StylusColor800")
  977. ))
  978. (if (= studio 4)    ; SC 1520
  979. (
  980.     (set drivername "EpsonP2")
  981.     (set prefname "prefs/EpsonP2Pref")
  982.     (set envname "EpsonP2Pref")
  983.     (set presetname "DriverPresets/StylusColor600")
  984.     (set setupname "Prefs/SetupStylus")
  985.     (set setuptool "StylusColor1520")
  986.     (set soutput "output/StylusColor800")
  987.     (set sprofile  "Profiles/StylusColor600")
  988.     (set sprofile2  "Profiles/StylusColor600HQ")
  989.     (set studiodefault "StylusColor800")
  990. ))
  991. (if (= studio 5)    ; SC 3000
  992. (
  993.     (set drivername "EpsonP2")
  994.     (set prefname "prefs/EpsonP2Pref")
  995.     (set envname "EpsonP2Pref")
  996.     (set presetname "DriverPresets/StylusColor600")
  997.     (set setupname "Prefs/SetupStylus")
  998.     (set setuptool "StylusColor3000")
  999.     (set soutput "output/StylusColor800")
  1000.     (set sprofile  "Profiles/StylusColor600")
  1001.     (set sprofile2  "Profiles/StylusColor600HQ")
  1002.     (set studiodefault "StylusColor800")
  1003. ))
  1004. (if (= studio 6)    ; SC Photo
  1005. (
  1006.     (set drivername "EpsonP2")
  1007.     (set prefname "prefs/EpsonP2Pref")
  1008.     (set envname "EpsonP2Pref")
  1009.     (set presetname "DriverPresets/StylusColor400")
  1010.     (set setupname "Prefs/SetupStylus")
  1011.     (set setuptool "StylusPhoto")
  1012.     (set soutput   "output/Epson_ESC-P2")
  1013.     (set sprofile  "Profiles/StylusColor600")
  1014.     (set sprofile2  "Profiles/StylusColor600HQ")
  1015.     (set studiodefault "StylusPhoto")
  1016.     (makeassign "STUDIOPARENT" (tackon (pathonly (studiopath)) "Studio_Prefs"))
  1017.     (if (exists "STUDIOPARENT:ESCP2.module")
  1018.     (
  1019.         (delete (cat "STUDIOPARENT:ESCP2.module"))
  1020.     ))
  1021. ))
  1022. (if (= studio 7)    ; SC 
  1023. (
  1024.     (set addm 30)
  1025.     (Meter)
  1026.     (set sprofile2  "Profiles/StylusColor")
  1027. ))
  1028. (if (= studio 8)    ; SC500
  1029. (
  1030.     (set addm 30)
  1031.     (Meter)
  1032.     (set sprofile2  "Profiles/StylusColor500")
  1033. ))
  1034.  
  1035. (set addm 5)
  1036. (Meter)
  1037. (if (> studio 0)
  1038. (
  1039.     (if (<> drivername "")
  1040.     (
  1041.         (makeassign "STUDIOPARENT" "Devs:Printers")
  1042.         (set exerr (run (cat "RAM:lx x drivers/" drivername ".pkd \"STUDIOPARENT:\"")))
  1043.         (if (> exerr 0)
  1044.         (
  1045.             (abort (#abortunpack (tackon "Drivers" drivername)))
  1046.         ))
  1047.         (set delenv 1)
  1048.         (if (= (exists (cat "ENV:" envname)) 1)
  1049.         (
  1050.                 (if (NOT (askbool (prompt (#delenv))
  1051.                     (choices #yesupdate #nochange)
  1052.                     (help (#delenvhelp))
  1053.                     (default 1)))
  1054.                 (
  1055.                     (set delenv 0)
  1056.                 ))
  1057.         ))
  1058.         (working #waitmsg)
  1059.         (if (> delenv 0)
  1060.         (
  1061.             (if (exists "ENV:")
  1062.             (
  1063.                 (delete (cat "ENV:" envname))
  1064.             ))
  1065.             (if (exists "ENVARC:")
  1066.             (
  1067.                 (delete (cat "ENVARC:" envname))
  1068.             ))
  1069.             (if (<> presetname "")
  1070.             (
  1071.                 (if (= (exists presetname) 1)
  1072.                 (
  1073.                     (copyfiles (source presetname)
  1074.                         (dest "ENV:")
  1075.                         (newname envname)
  1076.                         (nogauge)
  1077.                     )
  1078.                 )
  1079.                 (
  1080.                     (if (= (exists (cat presetname ".pkd")) 1)
  1081.                     (
  1082.                         (set exerr (run (cat "RAM:lx x " presetname ".pkd ENV:")))
  1083.                         (if (> exerr 0)
  1084.                         (
  1085.                             (abort (#abortunpack (cat presetname ".pkd")))
  1086.                         ))
  1087.                         (if (exists (cat "ENV:" envname))
  1088.                         (
  1089.                             (delete (cat "ENV:" envname))
  1090.                         ))
  1091.                         (rename (cat "ENV:" (fileonly presetname)) (cat "ENV:" envname))
  1092.                     ))
  1093.                 ))
  1094.                 (if (= (exists (cat "ENV:" envname)) 1)
  1095.                 (
  1096.                     (if (exists "ENVARC:")
  1097.                     (
  1098.                         (copyfiles (source (cat "ENV:" envname))
  1099.                             (dest "ENVARC:")
  1100.                             (newname envname)
  1101.                             (nogauge)
  1102.                         )
  1103.                     ))
  1104.                 ))
  1105.             ))
  1106.         ))
  1107.     ))
  1108.     (set addm 5)
  1109.     (Meter)
  1110.     (if (<> prefname "")
  1111.     (
  1112.         (makeassign "STUDIOPARENT" prefdisk)
  1113.         (set exerr (run (cat "RAM:lx x " prefname ".pkd \"STUDIOPARENT:\"")))
  1114.         (if (> exerr 0)
  1115.         (
  1116.             (abort (#abortunpack prefname))
  1117.         ))
  1118.     ))
  1119.     (set addm 5)
  1120.     (Meter)
  1121.     (if (<> setupname "")
  1122.     (
  1123.         (makeassign "STUDIOPARENT" prefdisk)
  1124.         (set exerr (run (cat "RAM:lx x " setupname ".pkd \"STUDIOPARENT:\"")))
  1125.         (if (> exerr 0)
  1126.         (
  1127.             (abort (#abortunpack (cat setupname ".pkd")))
  1128.         ))
  1129.         (if (<> setuptool "")
  1130.         (
  1131.             (tooltype (prompt "")
  1132.                 (help "")
  1133.                 (dest (cat "STUDIOPARENT:" (fileonly setupname)))
  1134.                 (settooltype "PRINTER" (setuptool))
  1135.                 (noposition))
  1136.         ))
  1137.         (message (#setupmsg prefdisk))
  1138.         (working #waitmsg)
  1139.     ))
  1140.     
  1141.     (set addm 5)
  1142.     (Meter)
  1143.     (if (<> soutput "")
  1144.     (
  1145.         (makeassign "STUDIOPARENT" (tackon (pathonly (studiopath)) "Studio_Output"))
  1146.         (set exerr (run (cat "RAM:lx x \"" soutput ".pkd\" \"STUDIOPARENT:\"")))
  1147.         (if (> exerr 0)
  1148.         (
  1149.             (abort (#abortunpack (cat soutput ".pkd")))
  1150.         ))
  1151.     ))
  1152.     (set addm 5)
  1153.     (Meter)
  1154.  
  1155.     (if (<> sprofile "")
  1156.     (
  1157.         (makeassign "STUDIOPARENT" (tackon (pathonly (studiopath)) "Studio_Profiles"))
  1158.         (set exerr (run (cat "RAM:lx x \"" sprofile ".pkd\" \"STUDIOPARENT:\"")))
  1159.         (if (> exerr 0)
  1160.         (
  1161.             (abort (#abortunpack (cat sprofile ".pkd")))
  1162.         ))
  1163.     ))
  1164.     (set addm 5)
  1165.     (Meter)
  1166.  
  1167.     (if (<> studiodefault "")
  1168.     (
  1169.         (makeassign "STUDIOPARENT" (tackon (pathonly (studiopath)) "Studio_Prefs"))
  1170.         (set exerr (run (cat "RAM:lx x \"" (tackon "StudioPresets" (cat studiodefault ".pkd\"")) "\"T:\"")))
  1171.         (if (> exerr 0)
  1172.         (
  1173.             (abort (#abortunpack (tackon "StudioPresets" (cat studiodefault ".pkd"))))
  1174.         ))
  1175.         (copyfiles (source (cat "T:" studiodefault ".prefs"))
  1176.             (dest "STUDIOPARENT:")
  1177.             (newname "DefaultSettings")
  1178.             (nogauge)
  1179.         )
  1180.         (if (exists "STUDIOPARENT:Studio.prefs")
  1181.         (
  1182.             (if (askbool (prompt (#sdelenv))
  1183.                 (choices "Yes, delete" "No, don't delete")
  1184.                 (help (#sdelenvhelp))
  1185.                 (default 1))
  1186.             (
  1187.                 (delete "STUDIOPARENT:Studio.prefs")
  1188.             ))
  1189.         ))
  1190.         (working #waitmsg)
  1191.     ))
  1192.     (set addm 5)
  1193.     (Meter)
  1194.  
  1195.     (if (<> drivername "")
  1196.     (
  1197.         (message (#installed drivername (fileonly prefname)))
  1198.         (makeassign "STUDIOPARENT" prefdisk)
  1199.         (if (exists "sys:prefs/printer")
  1200.         (
  1201.             (run "sys:prefs/printer")
  1202.         )
  1203.         (
  1204.             (if (exists "STUDIOPARENT:printer")
  1205.             (
  1206.                 (run "STUDIOPARENT:printer")
  1207.             )
  1208.             (
  1209.                 (if (exists "sys:prefs/preferences")
  1210.                 (
  1211.                     (run "sys:prefs/preferences")
  1212.                 ))
  1213.             ))
  1214.         ))
  1215.     ))
  1216. ))
  1217. (set addm 5)
  1218. (Meter)
  1219. (if (<> sprofile2 "") ; Install additional profiles of online version
  1220. (
  1221.     (if (= (exists (cat sprofile2 ".pkd")) 1)
  1222.     (
  1223.         (makeassign "STUDIOPARENT" (tackon (pathonly (studiopath)) "Studio_Profiles"))
  1224.         (set exerr (run (cat "RAM:lx x \"" sprofile2 ".pkd\" \"STUDIOPARENT:\"")))
  1225.         (if (> exerr 0)
  1226.         (
  1227.             (abort (#abortunpack (cat sprofile2 ".pkd")))
  1228.         ))
  1229.         (message #madonlineupdate)
  1230.     ))
  1231. ))
  1232.  
  1233.  
  1234. (set addm 5)
  1235. (Meter)
  1236. (working #waitmsg)
  1237.  
  1238. (run "RAM:lx n")
  1239. (delete "RAM:lx")
  1240. (makeassign "STUDIOPARENT")
  1241. (complete 100)
  1242.